home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Mapping / m-zone < prev   
Lisp/Scheme  |  1998-08-11  |  1KB  |  20 lines
  1. m-zone zone numbers
  2.  
  3. The function m-zone monitors the output of a conversion function producing a list of numbers. It monitors this initial numbers (lenght) against a user-defined zone.
  4.  
  5. (m-zone '4/3 '(1/8 -1/8 2/8 -1/20 2/20 1/20 -1/20 1/4 2/1 1/2 -2/1))
  6. => (1/8 -1/8 1/4 -1/20 1/10 1/20 -1/20 1/4 1/3)
  7.  
  8. (setq len (cfunction 
  9.            (gen-noise-white 500 1.0 .765)
  10.            '(1/16 -2/16 3/16 5/16 7/16)))
  11.  
  12. (setq length-to-zone (m-zone '32/1 len))
  13.  
  14. => (7/16 3/16 5/16 7/16 3/16 1/16 -1/8 1/16 7/16 5/16 -1/8 -1/8 -1/8 -1/8 7/16 1/16 5/16 5/16 5/16 7/16 5/16 5/16 3/16 7/16 5/16 3/16 5/16 3/16 3/16 5/16 3/16 1/16 -1/8 3/16 3/16 1/16 -1/8 -1/8 7/16 7/16 3/16 3/16 3/16 -1/8 -1/8 1/16 5/16 -1/8 1/16 5/16 7/16 3/16 3/16 5/16 -1/8 -1/8 -1/8 5/16 5/16 -1/8 7/16 -1/8 1/16 -1/8 3/16 1/16 7/16 -1/8 1/16 1/16 -1/8 5/16 7/16 3/16 3/16 1/16 7/16 1/16 -1/8 1/16 7/16 1/16 3/16 1/16 5/16 -1/8 -1/8 7/16 5/16 -1/8 -1/8 -1/8 3/16 1/16 -1/8 7/16 -1/8 5/16 -1/8 -1/8 5/16 3/16 3/16 5/16 5/16 5/16 7/16 1/16 -1/8 3/16 5/16 -1/8 7/16 3/16 3/16 3/16 -1/8 7/16 5/16 7/16 1/16 3/16 3/16 7/16 -1/8 5/16 -1/8 -1/8 3/16 5/16 3/16 1/16 7/16 3/16 3/16 -1/8 -1/8 5/16 1/16 5/16 3/16 1/16 5/16 3/16 1/16 7/16 5/16)
  15.  
  16. ;test
  17.  
  18. (get-ratio-sc (apply '+ (mapcar 'abs length-to-zone)))
  19. =>  32/1
  20.